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Subroutine ERFPRCIINI ( Array_addr, Array_size ) 
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Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE ysee AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
a eokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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AUTHOR: Elliott A. Drayton CREATION DATE: 27-Jan-1983 
Functional description: 


This is the initialization module for the loadable image PROC1.EXE. 
After PROC] has been loaded this routine is called to return 

the information from it tables. These tables specifiy which error 
log packets this loadable image will process. The tables consist of: 


ENTRY TYPE, DEVICE CLASS, MODULE VERSION, TRANSFER VECTOR OFFSET 


The ENTRY TYPE value is the packet type identifier for the packets that 
this loadable image will process. 


The DEVICE CLASS value specifies the class of the packet that will 
be process by this loadable image. 


The MODULE VERSION is used to determine if the module in this image 
is the one to use. This is accomplished by the root image comparing 
this value against the value in the master tables in the root image. 


The TRANSFER VECTOR OFFSET is the index to the transfer vector to 
be used for a specific device or entry type. For example, the transfer 
vectors for the disk image are ordered as: 
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INITDISK 0 ' a routine similar to this one 
MASSDISK 1 ' a device specific routine 
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CINITPROCT.FORST” 


C RKDISK § 

C eLp SK 

3 ECT. 

3 Modified by: 

¢ v04-002 SARO175 Sharon A. Reynolds 15-Nov-1983 
; Added ‘logmscp’ entry support. 

¢ v04-001 $RO001 Sharon Reynolds 17-Mar-1983 
* omnes tables to support status message and log message. 
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DEFINE ENTRY TYPES 
HSC/UDA DISK DEVICES 
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Parameter EMBSK or 99 ! Status aoeeege 

Parameter EMBSK_LM = 100 ! Log me sage 

Parameter EMBSK— “LOGMSCP = 101 ! Logmsg rr. hout ucb 

Parameter Zero = 0 

Parameter Vi = 1 ! Device module version number 

Parameter Maxtypes = 3 

Integer*4 Array addr, Array size 

Integer*2 Proci_codes ( 4 * Maxtypes ) 

Dat Proci_codes / 

1 ERBSK SP, zero, V1, 1, ! Status message entries 
EMBSK_LM, zero, V1, 2, i Log message entries 
EMBSK “LOGMSCP, 20ro, v1, 3/ i Logmscp entries 


array= addr = ZL0C oreet codes(1)) 
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ERFPRCIINI 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type Name 


0-00000000 ERFPRCIINI 
VARIABLES 
Address Type Name Address Type Name 


AP-00000004@ I*4 ARRAY_ADDR AP-00000008@ I*4 ARRAY_SIZE 


ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*2 PROC1_CODES 24 «(12) 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$: INI TPROC1/0BJ=08J$: INITPROC1 MSRC$:INITPROC1 


COMPILATION STATISTICS 


Run Time: 0.76 seconds 
Elapsed Time: 4.74 seconds 
Page Faults: 84 

Dynamic Memory: 155 pages 
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Name Bytes Attributes 

SCODE 19 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SLOCAL 24 + PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 43 


/NOMACHINE_CODE /CONTINUATIONS=19 
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